perm filename Q[TMP,LCS] blob
sn#461058 filedate 1979-07-23 generic text, type T, neo UTF8
1) NXM.FAI[TMP,LCS] and 2) XM.FAI[TMP,LCS] 7-23-79 08:17 pages 1,1
**** File 1) NXM.FAI[TMP,LCS], Page 1 line 1
1) TITLE XM
1) ;↓↓AC DEF
**** File 2) XM.FAI[TMP,LCS], Page 1 line 1
2) COMMENT ⊗ VALID 00014 PAGES
2) C REC PAGE DESCRIPTION
2) C00001 00001
2) C00003 00002 TITLE XM
2) C00004 00003 BEG: SETOM LINE
2) C00009 00004 XINI: SKIPN GO
2) C00012 00005 MOVE A,E ROTATION
2) C00015 00006 XCHA: SETZ 14, ↓↓MOVE UP AND RIGHT
2) C00018 00007 MVLFT: MOVMS 0 MOVE LEFT THEN RIGHT
2) C00021 00008 OOBAR: SETZM OOBFLG GET HERE IF ALL READY OOB
2) C00025 00009 FINDL: HRRZ A,JOBREL CK IF BIG ENUF
2) C00031 00010 INBITS: PUSHJ P,NAMGET INPUT OLD BIT FILE
2) C00033 00011 CORUP
2) C00035 00012 ******** TYPE '4' FOR 4X4 DOTS, TYPE '9' FOR 9X9 DOTS.***********
2) C00037 00013 GETNAM: MOVEI A, FILE SCAN
2) C00039 00014 FILNAM: 0 GLOPS OF JUNK
2) C00040 ENDMK
2) C⊗;
2) TITLE XM
2) ;******** FOR THICKER LINES, FIRST TYPE <4> FOR DOTS*4 OR <9> FOR DOTS*9
2) ;↓↓AC DEF
***************
**** File 1) NXM.FAI[TMP,LCS], Page 2 line 49
1) ; INCHWL E
1) ; INCHWL E GET THE CRLF
1) CLRBFI ;INSTEAD OF ↑↑
1) OUTSTR [ASCIZ/USING DEFAULT VALUES.
**** File 2) XM.FAI[TMP,LCS], Page 3 line 49
2) ;C CLRBFI ;INSTEAD OF ↑↑
2) PUSHJ P,INCHLF
2) OUTSTR [ASCIZ/USING DEFAULT VALUES.
***************
**** File 1) NXM.FAI[TMP,LCS], Page 2 line 71
1) CAIE E,"Y"
1) CAIN E,"y"
1) SETOM ROFLG
1) CAIE E,"G"
**** File 2) XM.FAI[TMP,LCS], Page 3 line 70
2) CAIE E,"Y"
2) CAIN E,"y"
1) NXM.FAI[TMP,LCS] and 2) XM.FAI[TMP,LCS] 7-23-79 08:17 pages 2,3
2) SETOM ROFLG ;ROTATE FLAG NOW SET =-1
2) CAIE E,"G"
***************
**** File 1) NXM.FAI[TMP,LCS], Page 2 line 80
1) CLRBFI
1) OUTSTR [ASCIZ/ORIGIN X RIGHT OFFSET RIGHT (DEFAULT=4(CENTER))? /]
1) PUSHJ P,RNUM
1) JRST [ PASS2: HRREI A,-=760
1) JRST YDEF] ;GET Y INFO
**** File 2) XM.FAI[TMP,LCS], Page 3 line 79
2) PUSHJ P,INCHLF ;GO LOOK FOR THE LINE FEED
2) ;C CLRBFI
2) SKIPN ROFLG ;ROTATE?
2) JRST .+3 ;NO, SKIP NEXT
2) OUTSTR [ASCIZ/ORIGIN X RIGHT OFFSET (DEFAULT=7.0(CENTER))? /]
2) SKIPA
2) OUTSTR [ASCIZ/ORIGIN X RIGHT OFFSET (DEFAULT=4.0(CENTER))? /]
2) PUSHJ P,RNUM
2) JRST [ PASS2: HRREI A,-=760
2) SKIPE ROFLG ;ROTATE?
2) HRREI A,-=1400 ; YES, DEFAULT = 7"
2) JRST YDEF] ;GET Y INFO
***************
**** File 1) NXM.FAI[TMP,LCS], Page 2 line 105
1) YDEFP: CAIE C,12
1) JRST [ CLRBFI
1) JRST YAGN1]
1) YDEF: ADD A,B
**** File 2) XM.FAI[TMP,LCS], Page 3 line 111
2) CAIE C,12 ;DID IT GET A LF?
2) PUSHJ P,INCHLF ;NO, GO LOOK
2) ;CYDEFP: CAIE C,12
2) ;C JRST [ CLRBFI
2) ;C JRST YAGN1]
2) YDEF: ADD A,B
***************
**** File 1) NXM.FAI[TMP,LCS], Page 2 line 120
1) ; JRST CORLUZ
1) SETZM XX#
**** File 2) XM.FAI[TMP,LCS], Page 3 line 128
2) SETZM XX#
***************
1) NXM.FAI[TMP,LCS] and 2) XM.FAI[TMP,LCS] 7-23-79 08:17 pages 2,3
**** File 1) NXM.FAI[TMP,LCS], Page 3 line 1
1) XINI: SKIPN GO
**** File 2) XM.FAI[TMP,LCS], Page 3 line 140
2) INCHLF: INCHWL 0 ;GET ANOTHER CHARACTER
2) CAIE 0,12 ;WAS IT A LF?
2) JRST INCHLF ;GET THE LF
2) POPJ P,
2) XINI: SKIPN GO
***************
**** File 1) NXM.FAI[TMP,LCS], Page 3 line 8
1) JUMPLE A,[XINLER:CLRBFI
1) JRST XINI]
**** File 2) XM.FAI[TMP,LCS], Page 4 line 8
2) ;C JUMPLE A,[XINLER:CLRBFI
2) ;CC JUMPLE A,[XINLER:PUSHJ P,INCHLF
2) JUMPLE A,[XINLER:INCHWL 0 ; GET LF?
2) JRST XINI]
***************
**** File 1) NXM.FAI[TMP,LCS], Page 3 line 33
1) JRST [ CLRBFI
1) JRST YINI1]
**** File 2) XM.FAI[TMP,LCS], Page 4 line 35
2) ;C JRST [ CLRBFI
2) JRST [ PUSHJ P,INCHLF
2) JRST YINI1]
***************
**** File 1) NXM.FAI[TMP,LCS], Page 11 line 20
1) CLRBFI
1) JRST FILIN
**** File 2) XM.FAI[TMP,LCS], Page 12 line 20
2) PUSHJ P,INCHLF
2) ;C CLRBFI
2) JRST FILIN
***************
**** File 1) NXM.FAI[TMP,LCS], Page 12 line 42
1) NAMGET: CLRBFI
1) OUTSTR [ASCIZ/
**** File 2) XM.FAI[TMP,LCS], Page 13 line 42
1) NXM.FAI[TMP,LCS] and 2) XM.FAI[TMP,LCS] 7-23-79 08:17 pages 12,13
2) ;CNAMGET: CLRBFI
2) ;CCNAMGET: INCHWL 0
2) ;CC INCHWL 0 ;GET CRLF
2) ;CC INCHWL 0
2) ;CC INCHWL 0 ;GET CRLF
2) NAMGET: PUSHJ P,INCHLF
2) OUTSTR [ASCIZ/
***************